home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / inst-packer v4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.9 KB  |  73 lines
  1. 10 dimtyp$(5):dimdu$(5)
  2. 20 typ$(1)="normal"
  3. 30 typ$(2)="centronic":du$(2)="cen"
  4. 40 typ$(3)="mps801":du$(3)="umlaut1"
  5. 50 typ$(4)="mps802":du$(4)="umlaut2"
  6. 60 typ$(5)="individuell":du$(5)="indi"
  7. 70 gosub80:goto110
  8. 80 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  9. 90 print"[221][146]     +  [205][160][193][160][211][160][212][160][197][160][210][160]-[160][212][160][197][160][216][160][212]   +     [152][221]";
  10. 100 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]":return
  11. 110 print"     [196][160][210][160][213][160][195][160][203][160][197][160][210][160][193][160][213][160][211][160][215][160][193][160][200][160][204]        [146]"
  12. 120 print"1) [206][207][210][205][193][204] [201][197][195]-[194]us + [210][211]232  ([193][211][195][201][201])"
  13. 130 print"2) [195][197][206][212][210][207][206][201][195]  ([193][211][195][201][201])          "
  14. 140 print"3) [205][208][211]801 + [214][195]1525  ([195][194][205])          "
  15. 150 print"4) [205][208][211]802 + [214][195]1526  ([195][194][205])  "
  16. 160 print"5) [201][206][196][201][214][201][196][213][197][204][204]"
  17. 170 print"[215]aehlen [211]ie ? ";
  18. 180 poke198,0:wait198,1:getx$
  19. 190 ifasc(x$)<49orasc(x$)>53then180
  20. 200 typ=val(x$)
  21. 202 gosub80:print"[211]oll die [194]ildschirm-[198]arbe im 80 [218]-[205]odus geaendert werden <j/n>"
  22. 203 wait198,1:getfb$
  23. 204 iffb$<>"j"then500
  24. 205 print" [198]arbwahl! ":input" [200]intergrundfarbe :";hf
  25. 206 input" vordergrundfarbe :";vf
  26. 500 gosub80:print"[196]er [194]asic-[211]tart wird generiert"
  27. 520 print"die [208]rogrammteile werden nachgeladen!"
  28. 540 gosub1000:z=2053
  29. 560 a=7:b=9:n$="t1":l=17+2311:gosub900:t3=c
  30. 580 n$="t3":l=1024+c:gosub900
  31. 582 iffb$="j"thenpoket3+822,16*vf+hf
  32. 600 n$="t5":l=510+c:gosub900
  33. 620 n$="t4":l=2783+c:gosub900
  34. 640 n$="zeichensatz":l=4096+c:gosub900
  35. 660 n$="t2":l=7396+c:gosub900
  36. 665 n$="t7.00":l=496+c:gosub900
  37. 670 n$="t8":l=40+c:gosub900
  38. 680 n$=typ$(typ):l=768+c:gosub900
  39. 700 n$="formular*":l=249+c:gosub900
  40. 720 iftyp=1thenfori=2250to2270:pokei,234:next:goto780
  41. 740 n$=du$(typ):l=c:gosub900:pokez+4,a:pokez+9,b:ze=c-l+39424
  42. 760 ze%=ze/256:pokez+13,ze%:pokez+11,ze-(ze%*256)
  43. 780 gosub80:print"p[207]44,8:p[207]45,p[197](174):p[207]46,p[197](175)"
  44. 800 print"[196]as [208]rogramm '"typ$(typ)"' kann jetzt"
  45. 820 print"wie ein [194]asic-[208]rogramm behandelt werden"
  46. 840 print"[193]uf [196]isk oder [203]assette abspeichern,"
  47. 860 print"oder mit '[210][213][206]' starten!"
  48. 880 poke631,19:poke632,17:poke633,17:poke634,17:poke635,17:poke636,13:poke198,6
  49. 890 end
  50. 900 z=z+18:pokez,a:pokez+2,b
  51. 910 print"  "n$" nach "b*256+a
  52. 920 sys57812n$,8,0:poke780,0:poke781,a:poke782,b:sys65493
  53. 930 open1,8,15:input#1,e,f$,g,h:close1
  54. 940 ife=62thenprint""f$chr$(13)"[146][196]isk mit "n$" einlegen <taste>"
  55. 950 ife=62thenpoke198,0:wait198,1:goto910
  56. 960 ife>2thenprinte;f$;g;h:end
  57. 965 a=peek(174):b=peek(175):c=b*256+a
  58. 970 d%=l/256:pokez+9,d%:pokez+4,l-(d%*256):return
  59. 1000 forx=2049to2310:readi:pokex,i:next:return
  60. 1010 data11,8,194,7,158,50,48,54,49,0,0,0,120,169,11,141,32,208,141,17,208,169
  61. 1020 data0,160,0,162,0,32,246,8,169,0,160,77,162,3,32,253,8,169,0,160,0,162
  62. 1030 data0,32,246,8,169,0,160,0,162,196,32,253,8,169,0,160,0,162,0,32,246
  63. 1040 data8,169,0,160,254,162,203,32,253,8,169,0,160,0,162,0,32,246,8,169,0,160
  64. 1050 data223,162,153,32,253,8,169,0,160,0,162,0,32,246,8,169,0,160,0,162,128
  65. 1060 data32,253,8,169,0,160,0,162,0,32,246,8,169,0,160,228,162,188,32,253,8
  66. 1062 data169,0,160,0,162,0,32,246,8,169,0,160,240,162,197,32,253,8,169,0,160
  67. 1063 data0,162,0,32,246,8,169,0,160,40,162,200,32,253,8
  68. 1070 data169,0,160,0,162,0,32,246,8,169,0,160,0,162,192,32,253,8,169,0,160,0
  69. 1080 data162,0,32,246,8,169,0,160,249,162,4,32,253,8,169,0,160,0,162,0,32,246
  70. 1090 data8,169,0,160,0,162,0,32,253,8,32,0,154,169,55,133,1,169,2,141,255,198
  71. 1100 data169,0,141,33,208,169,12,141,134,2,88,76,0,192,133,95,132,96,134,90
  72. 1110 data96,133,91,132,88,134,89,32,191,163,96
  73.